Cream of the Crop 26/Cream of the Crop 26.iso/program/wsc4d21.zip/TERM_PGM.DFM/TERM_PGM.txt

Text File | 1997-06-09 | 7KB | 299 lines

object Term: TTerm
  Left = 124
  Top = 82
  Width = 620
  Height = 312
  Caption = 'Term:  Offline'
  Color = clWhite
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'Courier New'
  Font.Style = []
  Menu = MainMenu
  Visible = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object Memo: TMemo
    Left = 0
    Top = 0
    Width = 612
    Height = 266
    Align = alClient
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      '')
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 2
    OnKeyPress = KeyPress
  end
  object AboutPanel: TPanel
    Left = 232
    Top = 64
    Width = 153
    Height = 97
    BevelInner = bvRaised
    TabOrder = 0
    Visible = False
    object AboutOK: TButton
      Left = 48
      Top = 64
      Width = 49
      Height = 25
      Caption = 'OK'
      TabOrder = 0
      OnClick = AboutOKClick
    end
    object AboutMemo: TMemo
      Left = 8
      Top = 8
      Width = 137
      Height = 49
      BorderStyle = bsNone
      Color = clInactiveCaption
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      Lines.Strings = (
        '    Term Version 2.1'
        ' MarshallSoft Computing'
        '    Copyright (C) 1997')
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
    end
  end
  object AcceptPanel: TPanel
    Left = 8
    Top = 72
    Width = 185
    Height = 105
    TabOrder = 1
    Visible = False
    object AcceptMemo: TMemo
      Left = 16
      Top = 8
      Width = 153
      Height = 25
      Color = clInactiveCaption
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      Lines.Strings = (
        '')
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
    object AcceptOK: TButton
      Left = 64
      Top = 72
      Width = 49
      Height = 25
      Caption = 'OK'
      TabOrder = 1
      OnClick = AcceptOKClick
    end
    object AcceptBox: TMemo
      Left = 16
      Top = 40
      Width = 153
      Height = 25
      Lines.Strings = (
        '')
      TabOrder = 2
    end
  end
  object MainMenu: TMainMenu
    Left = 31
    Top = 10
    object menuLine: TMenuItem
      Caption = 'Line'
      ShortCut = 0
      object menuOnLine: TMenuItem
        Caption = 'OnLine'
        ShortCut = 0
        OnClick = menuOnLineClick
      end
      object menuOffline: TMenuItem
        Caption = 'OffLine'
        ShortCut = 0
        OnClick = menuOfflineClick
      end
      object menuExit: TMenuItem
        Caption = 'Exit'
        ShortCut = 0
        OnClick = menuExitClick
      end
    end
    object menuChange: TMenuItem
      Caption = 'Change'
      ShortCut = 0
      object menuPort: TMenuItem
        Caption = 'Port'
        ShortCut = 0
        object menuCOM1: TMenuItem
          Caption = 'COM1'
          ShortCut = 0
          OnClick = menuCOM1Click
        end
        object menuCOM2: TMenuItem
          Caption = 'COM2'
          ShortCut = 0
          OnClick = menuCOM2Click
        end
        object menuCOM3: TMenuItem
          Caption = 'COM3'
          ShortCut = 0
          OnClick = menuCOM3Click
        end
        object menuCOM4: TMenuItem
          Caption = 'COM4'
          ShortCut = 0
          OnClick = menuCOM4Click
        end
      end
      object menuBaud: TMenuItem
        Caption = 'Baud'
        ShortCut = 0
        object menu2400: TMenuItem
          Caption = '2400'
          ShortCut = 0
          OnClick = menu2400Click
        end
        object menu9600: TMenuItem
          Caption = '9600'
          ShortCut = 0
          OnClick = menu9600Click
        end
        object menu19200: TMenuItem
          Caption = '19200'
          ShortCut = 0
          OnClick = menu19200Click
        end
        object menu38400: TMenuItem
          Caption = '38400'
          ShortCut = 0
          OnClick = menu38400Click
        end
        object menu57600: TMenuItem
          Caption = '57600'
          ShortCut = 0
          OnClick = menu57600Click
        end
      end
      object menuDataBits: TMenuItem
        Caption = 'DataBits'
        ShortCut = 0
        object menuSeven: TMenuItem
          Caption = 'Seven'
          ShortCut = 0
          OnClick = menuSevenClick
        end
        object menuEight: TMenuItem
          Caption = 'Eight'
          ShortCut = 0
          OnClick = menuEightClick
        end
      end
      object menuParity: TMenuItem
        Caption = 'Parity'
        ShortCut = 0
        object menuNone: TMenuItem
          Caption = 'None'
          ShortCut = 0
          OnClick = menuNoneClick
        end
        object menuEven: TMenuItem
          Caption = 'Even'
          ShortCut = 0
          OnClick = menuEvenClick
        end
        object MenuOdd: TMenuItem
          Caption = 'Odd'
          ShortCut = 0
          OnClick = MenuOddClick
        end
      end
      object menuStopBits: TMenuItem
        Caption = 'StopBits'
        ShortCut = 0
        object menuOne: TMenuItem
          Caption = 'One'
          ShortCut = 0
          OnClick = menuOneClick
        end
        object menuTwo: TMenuItem
          Caption = 'Two'
          ShortCut = 0
          OnClick = menuTwoClick
        end
      end
    end
    object menuDial: TMenuItem
      Caption = 'Dial'
      Enabled = False
      ShortCut = 0
      OnClick = menuDialClick
    end
    object menuSend: TMenuItem
      Caption = 'Send'
      Enabled = False
      ShortCut = 0
      object SXMODEM: TMenuItem
        Caption = 'XMODEM'
        ShortCut = 0
        OnClick = SXMODEMClick
      end
      object SYMODEM: TMenuItem
        Caption = 'YMODEM'
        ShortCut = 0
        OnClick = SYMODEMClick
      end
    end
    object menuReceive: TMenuItem
      Caption = 'Receive'
      Enabled = False
      ShortCut = 0
      object RXMODEM: TMenuItem
        Caption = 'XMODEM'
        ShortCut = 0
        OnClick = RXMODEMClick
      end
      object RYMODEM: TMenuItem
        Caption = 'YMODEM'
        ShortCut = 0
        OnClick = RYMODEMClick
      end
    end
    object menuBreak: TMenuItem
      Caption = 'BREAK'
      ShortCut = 0
      OnClick = menuBreakClick
    end
    object menuAbout: TMenuItem
      Caption = 'About'
      ShortCut = 0
      OnClick = menuAboutClick
    end
    object menuDebug: TMenuItem
      Caption = 'XY'
      ShortCut = 0
      OnClick = XY
    end
  end
  object Timer: TTimer
    Interval = 50
    OnTimer = TimerTimer
    Left = 263
    Top = 17
  end
end